home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 21
/
Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso
/
Aminet
/
util
/
cdity
/
availmem2.lha
/
AvailMem2
/
Install_AvailMem2.0
< prev
next >
Wrap
Text File
|
1992-09-02
|
2KB
|
77 lines
(set cpu (database "cpu")) (set vblank (database "vblank"))
(set osver (/ (getversion "LIBS:version.library") 65536))
(set #about (cat "\n\n"
" Welcome to\n\n"
" AvailMem 2.0\n\n"
"Copyright © 1996-1997 Jesper Svennevid\n\n"
)
)
(set #whereAvailMem "Where do you wish to install AvailMem 2.0? The program should preferable be placed in WBStartup.")
(set #Source "Don't forget that the source is included in this archive.")
(set #byebye (cat "\nAvailMem 2.0 Install Complete!\n\n" ))
;********************************************************************
; Hello
;********************************************************************
(message #about)
(welcome)
(complete 0)
;********************************************************************
; Ask where to put AvailMem
;********************************************************************
(set AvailMemDir (askdir (prompt #whereAvailMem)
(help #whereAvailMem)
(default "SYS:WBStartup")
)
)
(set where AvailMemDir)
;********************************************************************
; Copy over AvailMem and Icon
;********************************************************************
(copyfiles (source "bin/AvailMem2") (dest where) (infos) (optional "nofail") )
(complete 50)
;********************************************************************
; Ask and and copy docs if wanted!
;********************************************************************
(set docs (askoptions (choices " AvailMem2_sve.guide" " AvailMem2_eng.guide")
(prompt #whatdocs)
(help #whatdocs)
(default 3)
)
)
(if (<> docs 0)
(
(set docsdir (askdir (prompt #wheredocs)
(help #wheredocs)
(default where)
)
)
(if (IN docs 0) (copyfiles (source "doc/AvailMem2_sve.guide") (dest docsdir) (infos) (optional "nofail") ) )
(if (IN docs 1) (copyfiles (source "doc/AvailMem2_eng.guide") (dest docsdir) (infos) (optional "nofail") ) )
)
)
;********************************************************************
; tell about the source!
;********************************************************************
(complete 95)
(message #Source)
(complete 100)
;********************************************************************
; End Bye
;********************************************************************
(exit #byebye)